Tx = Sequence(Segment[(t, 0, -0.1), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, -0.1, t), (0, 0.1, t)], t, 1, 6)
u = Vector((0, 0, 0), (7, 0, 0))
w = Vector((0, 0, 0), (0, 0, 7))
A = (0, 0, 0)
B = (3, 0, 0)
C = (3, 3, 0)
D = (0, 3, 0)
E_1 = (0, 0, 3)
poly1, a, b, c, d = Polygon(A, B, C, D)
e, F, G, H, faceABFE, faceBCGF, faceCDHG, faceADHE, faceEFGH, edgeAE, edgeBF, edgeCG, edgeDH, edgeEF, edgeFG, edgeGH, edgeEH = Prism(poly1, E_1)
Sx = 4.6 (slider from 0 to 8, step 0.2)
Sy = 6 (slider from 0 to 8, step 0.2)
Sz = -4 (slider from -8 to -3, step 0.2)
vs = Vector((0, 0, 0), (Sx, Sy, Sz))
f = Line(F, vs)
g = Line(G, vs)
h = Line(H, vs)
i = Line(E_1, vs)
I = Intersect(E, f)
J = Intersect(E, g)
K = Intersect(E, h)
poly2, j, k, l, m, n = Polygon(B, I, J, K, D)
p = Segment(F, I)
q = Segment(G, J)
r = Segment(H, K)
v = Vector((0, 0, 0), (0, 8, 0))
Ty = Sequence(Segment[(0, t, -0.1), (0, t, 0.1)], t, 1, 7)
Licht = Vector((0, -5, 9), (0.5 * Sx, -5 + 0.5 * Sy, 9 + 0.5 * Sz))